home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGBLER
/
ASMCODE2.LZH
/
MACRO.ASM
< prev
next >
Wrap
Assembly Source File
|
1985-05-19
|
16KB
|
607 lines
;-----------------------------------------------------------------------
;
; Assembly Language Macros Version 0.1
; Written by: Malcolm McCorquodale III Houston, Texas 713-626-4979
;
; (c) 1984 by Malcolm McCorquodale III All commercial rights reserved.
;
; This software is distributed using the "FREE-SOFTWARE" concept.
; If you find these macros useful send whatever contribution you
; deem appropriate to:
;
; Malcolm McCorquodale III
; 3470 Locke Lane,
; Houston Texas 77027.
; (713) 626 - 4979
;
;-----------------------------------------------------------------------
;;-----------------------------------------------------------------------
;;
;; General Purpose Macros
;;
;;-----------------------------------------------------------------------
;;-----------------------------------------------------------------------
;;
;; SAVE <p1,..,p8> Pushes 1 to 8 parameters.
;; Parameters p2 through p8 are optional.
;;
;;-----------------------------------------------------------------------
SAVE MACRO P1,P2,P3,P4,P5,P6,P7,P8
IRP X,<P1,P2,P3,P4,P5,P6,P7,P8>
IFNB <X>
PUSH X
ENDIF
ENDM
ENDM
;;-----------------------------------------------------------------------
;;
;; RESTORE <p1,..,p8> Pops 1 to 8 parameters.
;; Parameters p2 through p8 are optional.
;;
;;-----------------------------------------------------------------------
RESTORE MACRO P1,P2,P3,P4,P5,P6,P7,P8
IRP X,<P1,P2,P3,P4,P5,P6,P7,P8>
IFNB <X>
POP X
ENDIF
ENDM
ENDM
;;-----------------------------------------------------------------------
;;
;; PRINT <msg> - Writes msg on the screen.
;;
;; No registers destroyed.
;;
;;-----------------------------------------------------------------------
PRINT MACRO MSG ; Print message on the screen.
LOCAL TEXT,PEXIT
SAVE DS,DX
MOV DX,CS
MOV DS,DX
MOV DX,OFFSET TEXT
MOV AH,9
INT 21H
RESTORE DX,DS
JMP PEXIT
TEXT DB MSG,'$'
PEXIT:
ENDM
;;-----------------------------------------------------------------------
;;
;; The macros below this point have not been fully tested. MM.
;;
;;-----------------------------------------------------------------------
;;-----------------------------------------------------------------------
;;
;; TERMINATE - End program and return to caller.
;;
;;-----------------------------------------------------------------------
TERMINATE MACRO ; End of program.
INT 20H
ENDM
;;-----------------------------------------------------------------------
;;
;; RWABS <rw>,<drive>,<nofsect>,<beg>
;; <rw> - 'R' for read, 'W' for write.
;; <drive> - drive number.
;; <nofsect> - number of sectors to transfer.
;; <beg> - Begining logical sector number.
;;
;; Read and write absolute sectors.
;;
;; Note: 1) Status information is returned in flags, After the
;; flags are sampled they should be poped off the stack
;; with a POPF.
;;
;; 2) DS:DX must point to the DTA before this call.
;;
;;-----------------------------------------------------------------------
RWABS MACRO RW,DRIVE,NOFSECT,BEG ; R/W absolute disk sector.
SAVE BX,CX,DX
MOV AL,DRIVE
MOV CX,NOFSECT
MOV DX,BEG
IFIDN <RW>,<'R'>
INT 25H
ENDIF
IFIDN <RW>,<'W'>
INT 26H
ENDIF
RESTORE DX,CX,BX
ENDM
;;-----------------------------------------------------------------------
;;
;; ADDTODOS <dosend> - Add the current proc to DOS.
;;
;; Note: <dosend> is a label at the highest memory address
;; used by your code.
;;
;;-----------------------------------------------------------------------
ADDTODOS MACRO DOSEND ; Add a procedure to DOS.
MOV DX,DOSEND
INC DX
INT 27H
ENDM
;;-----------------------------------------------------------------------
;;
;; DOSRS232 <char>
;; Sends or receives a <char> to/from the standard RS232 port.
;;
;; If <char> is specified then it is sent to the RS232 port.
;; If <char> is not specified then a character is read into AL.
;;
;; OUTPUT: If receiving data AL will contain the byte received.
;;
;; All registers saved.
;;
;;-----------------------------------------------------------------------
DOSRS232 MACRO CHAR
SAVE AH,DL
IFB <CHAR>
MOV AH,3 ; Receive a character from the RS232 port.
ELSE
MOV AH,4 ; Send a character to the RS232 port.
ENDIF
INT 21H
RESTORE DL,AH
ENDM
;;-----------------------------------------------------------------------
;;
;; PRINT1 <char> - Send <char> to the standard printer.
;;
;; No registers destroyed.
;;
;;-----------------------------------------------------------------------
PRINT1 MACRO CHAR ; Send a character to the printer.
SAVE AH,DL
MOV DL,CHAR
MOV AH,5
INT 21H
RESTORE DL,AH
ENDM
;;-----------------------------------------------------------------------
;;
;; INPUTSTR <len>,<bufoff>,[<bufseg>]
;; <len> - Length of input buffer.
;; <bufoff> - Offset from <bufseg> to message buffer.
;; <bufseg> - Optional segment for input buffer.
;;
;; Input a string ending with a RETURN from the standard
;; input device.
;;
;; No registers destroyed except DS:DX which points to
;; input buffer on output.
;;
;; On exit: DS:DX will have <bufseg>:<bufoff>.
;; Byte 1 of buffer = Size of buffer.
;; Byte 2 of buffer = Number of bytes read w/o c/r.
;; Byte 3 of buffer = Start of text read.
;;
;;-----------------------------------------------------------------------
INPUTSTR MACRO LEN,BUFOFF,BUFSEG ; Get a line of text.
PUSH AH
IFNB <BUFSEG>
MOV DX,BUFSEG
MOV DS,DX
ENDIF
MOV DX,BUFOFF
MOV [DX],LEN
MOV AH,0AH
INT 21H
POP AH
ENDM
;;-----------------------------------------------------------------------
;;
;; POLLSTDIN - Check the status of the standard input device.
;;
;; On exit: AL = 0FFH - Character is available.
;; 00H - Character not available.
;;
;; Note: This routine executes an INT 23H if a ctl-brk
;; is detected.
;;
;; No registesrs destroyed.
;;
;;-----------------------------------------------------------------------
POLLSTDIN MACRO ; Poll the standard input device.
PUSH AH
MOV AH,0BH
INT 21H
POP AH
ENDM
;;-----------------------------------------------------------------------
;;
;; CLRSTDIN <func> - Clear standard input buffer then execute
;; function <func>.
;; <func> may be 1 - Keyboard input.
;; 6 - Direct Console I/O.
;; 7 - Direct Console Input w/o Echo.
;; 8 - Console Input w/o Echo.
;; A - Buffered Keyboard Input.
;;
;; No registers destroyed except AX.
;;
;;-----------------------------------------------------------------------
CLRSTDIN MACRO FUNC ; Clear the standard input device.
MOV AL,FUNC
MOV AH,0CH
INT 21H
ENDM
;;-----------------------------------------------------------------------
;;
;; DISKRESET - Flushes all file buffers.
;;
;;-----------------------------------------------------------------------
DISKRESET MACRO ; Reset the disk.
PUSH AH
MOV AH,0DH
INT 21H
POP AH
ENDM
;;-----------------------------------------------------------------------
;;
;; PICKDRIVE <drive> - Select the default disk drive.
;;
;; Input: 0 = Drive A, 1 = Drive B, etc.
;;
;; Output: AL = number of drives. Minimum=2.
;;
;; No registers destroyed.
;;
;;-----------------------------------------------------------------------
PICKDRIVE MACRO DRIVE ; Pick the default disk drive.
SAVE DL,AH
MOV DL,DRIVE
MOV AH,0EH
INT 21H
RESTORE AH,DL
ENDM
;;-----------------------------------------------------------------------
;;
;; FINDRIVE - Determine the default drive.
;;
;; Output: AL = 0 = Drive A, 1 = Drive B, etc.
;;
;; No registers destroyed except AL.
;;
;;-----------------------------------------------------------------------
FINDRIVE MACRO ; Find the default disk drive.
PUSH AH
MOV AH,19H
INT 21H
POP AH
ENDM
;;-----------------------------------------------------------------------
;;
;; SETDTA - Set the DTA.
;;
;; On input: DS:DX must point to new DTA.
;;
;;-----------------------------------------------------------------------
SETDTA MACRO ; Set the DTA.
PUSH AH
MOV AH,1AH
INT 21H
POP AH
ENDM
;;-----------------------------------------------------------------------
;;
;; ALLOCTAB <drive> - Get pointer to FAT ID byte.
;;
;; If <drive> is specified then the pointer to the FAT ID
;; for drive <drive> is returned.
;; If <drive> is not specified then a pointer to the FAT ID
;; byte for the default drive is returned.
;;
;; Output: [DS:BX] = FAT ID byte.
;; DX = Number of allocation units.
;; AL = Number of sectors per allocation unit.
;; CX = Size of the physical sector.
;;
;;-----------------------------------------------------------------------
ALLOCTAB MACRO DRIVE
PUSH AH
IFB <DRIVE>
MOV AH,1BH ; Get FAT ID for default drive.
ELSE
MOV AH,1CH ; Get FAT ID for specified drive.
MOV DL,DRIVE
ENDIF
INT 21H
POP AH
ENDM
;;-----------------------------------------------------------------------
;;
;; CHANGEINT <int>,<seg>,<off> - If <seg> and <off> are specified then
;; interupt vector <int> is set to <seg>:<off>. If <seg> and
;; <off> are not specified then interupt vector <int> is
;; returned in ES:BX.
;;
;; All registers saved except ES and BX when a GET VECTOR
;;-----------------------------------------------------------------------
CHANGEINT MACRO INT,SEG,OFF
PUSH AX
MOV AL,INT
IFNB <SEG>
MOV AH,25H ; Set interupt vector.
MOV DX,SEG
MOV DS,DX
MOV DX,OFF
ELSE
MOV AH,35H ; Get interupt vector.
ENDIF
INT 21H
POP AX
ENDM
;;-----------------------------------------------------------------------
;;
;; GETDATE - Return the date in CX:DX. CX has the year (1980-2099) in bi
;; in binary. DH has the month (1-0C). DL has the day.
;; All registers preserved
;;
;;-----------------------------------------------------------------------
GETDATE MACRO ; Get the date.
PUSH AH
MOV AH,2AH
INT 21H
POP AH
ENDM
;;-----------------------------------------------------------------------
;;
;; SETDATE <yr>,<mo>,<day> - Set the date. <yr> is 1980..2099.
;; <mo> is 1..0CH. <day> is 1..31. On return: AL = 00 = sucess
;; AL = 0FFH = failure.
;;
;;-----------------------------------------------------------------------
SETDATE MACRO YR,MO,DAY ; Set the date.
SAVE CX,DX,AH
MOV AH,2BH
MOV CX,YR
MOV DH,MO
MOV DL,DAY
INT 21H
RESTORE AH,DX,CX
ENDM
;;-----------------------------------------------------------------------
;;
;; GETTIME - Get the time of day. Returns CX:DX. CH = hours (0..23),
;; CL = minutes (0..59), DH = seconds (0..59), DL = 1/100
;; seconds (0..99).
;;
;;-----------------------------------------------------------------------
GETTIME MACRO ; Get the time.
PUSH AH
MOV AH,2CH
INT 21H
POP AH
ENDM
;;-----------------------------------------------------------------------
;;
;; SETTIME <hr>,<min>,<sec>,<sec100> - Set the time.
;;
;;-----------------------------------------------------------------------
SETTIME MACRO HR,MIN,SEC,SEC100 ; Set the time.
SAVE CX,DX,AH
MOV AH,2D
MOV CH,HR
MOV CL,MIN
MOV DH,SEC
MOV DL,SEC100
INT 21H
RESTORE AH,DX,CX
ENDM
;;-----------------------------------------------------------------------
;;
;; VERIFY <flag> - Set or reset the verify flag.
;;
;; <flag> may be either 'ON', 'OFF' or 'QUERY'.
;; For 'OFF' and 'ON' all regs are
;; saved. For 'QUERY' AL returns 00 if off, 01 if on.
;;
;; OUTPUT: If <flag> is 'QUERY' then: AL = 0 for verify off
;; 1 for verify on
;; All registers saved if <flag> is not 'QUERY' else AL destroyed.
;;
;;-----------------------------------------------------------------------
VERIFY MACRO FLAG
IFIDN <FLAG>,<'OFF'> ; TURN VERIFY SWITCH OFF.
SAVE AX,DL
XOR DL,DL
XOR AL,AL
MOV AH,2EH
INT 21H
RESTORE DL,AX
ENDIF
IFIDN <FLAG>,<'ON'> ; TURN VERIFY SWITCH ON.
SAVE AX,DL
XOR DL,DL
MOV AL,1
MOV AH,2EH
INT 21H
RESTORE DL,AX
ENDIF
IFIDN <FLAG>,<'QUERY'> ; QUERY VERIFY SWITCH.
PUSH AH
MOV AH,54H
INT 21H
POP AH
ENDIF
ENDM
;;-----------------------------------------------------------------------
;;
;; GETDTA - Get DTA (Data Transfer Area). On return - ES:BX has address
;; of DTA.
;;
;;-----------------------------------------------------------------------
GETDTA MACRO ; Get address of DTA.
PUSH AH
MOV AH,2FH
INT 21H
POP AH
ENDM
;;-----------------------------------------------------------------------
;;
;; VERSION - Get PC-DOS version number.
;;
;; OUTPUT: AL = major version number,
;; AH = minor version number.
;; If AL = 0 then assume pre DOS 2.0
;;
;;-----------------------------------------------------------------------
VERSION MACRO ; Get PC-DOS version number.
MOV AH,30H
INT 21H
ENDM
;;-----------------------------------------------------------------------
;;
;; KEEP <rc>,<beg>,<fin> - Terminate this program but stay resident.
;;
;; <rc> = The return code for this program.
;; <beg> = The begining address of the program.
;; <fin> = The last byte plus one used by the program.
;; This number is divided by 16 to determine the memory
;; size in paragraphs required.
;; Registers may not be passed for <beg> and <fin>.
;;
;;-----------------------------------------------------------------------
KEEP MACRO RC,BEG,FIN
MOV AL,RC
MOV DX,(FIN-BEG)/16
MOV AH,31H
INT 21H
ENDM
;;-----------------------------------------------------------------------
;;
;; CTL_BRK <flag> - Read or write the current CTL-BRK state.
;;
;; <flag> - Is either 'ON', 'OFF' or not specified.
;;
;; If flag is not specified then current CTL-BRK state is
;; returned in DL.
;;
;; All registers saved if <flag> is specified elss DL is destroyed.
;;
;;-----------------------------------------------------------------------
CTL_BRK MACRO FLAG ; R/W CTRL-BREAK status flag.
PUSH AX
MOV AH,33H
IFB <FLAG>
XOR AL,AL
ELSE
MOV AL,1
ENDIF
IFNB
IFIDN <FLAG>,<'OFF'>
XOR DL,DL
ENDIF
IFIDN <FLAG>,<'ON'>
MOV DL,1
ENDIF
ENDIF
INIT 21H
POP AX
ENDM
;;-----------------------------------------------------------------------
;;
;; DISKAVAIL <DRIVE>
;;
;;-----------------------------------------------------------------------
;;-----------------------------------------------------------------------
;;
;;
;;
;;-----------------------------------------------------------------------
;;-----------------------------------------------------------------------
;;
;;
;;
;;-----------------------------------------------------------------------
;;-----------------------------------------------------------------------
;;
;;
;;
;;-----------------------------------------------------------------------
;;-----------------------------------------------------------------------
;;
;;
;;
;;-----------------------------------------------------------------------
;;-----------------------------------------------------------------------
;;
;;
;;
;;-----------------------------------------------------------------------
;;-----------------------------------------------------------------------
;;
;;
;;
;;-----------------------------------------------------------------------
;;-----------------------------------------------------------------------
;;
;;
;;
;;-----------------------------------------------------------------------
;;-----------------------------------------------------------------------
;;
;;
;;
;;-----------------------------------------------------------------------
;;-----------------------------------------------------------------------
;;
;;
;;
;;-----------------------------------------------------------------------
;;;;;; test prog
assume cs:cseg,ds:cseg,es:cseg
cseg segment para 'code'
x proc far
push ds
xor ax,ax
push ax
writeln 'a message' ;; test writeln, save, restore.
ret
x endp
cseg ends
end
